home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / MEDIA / REVIEWS.DXR / Internal_31.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  1.4 KB  |  49 lines
  1. on mouseUp
  2.   global gAlpha
  3.   set gAlpha to gAlpha + 1
  4.   if gAlpha > 26 then
  5.     set gAlpha to 1
  6.   end if
  7.   put char gAlpha of field "alphaBet" into field "alphakey"
  8.   UpdateAlphaRT()
  9. end
  10.  
  11. on UpdateAlphaRT
  12.   global gTB
  13.   puppetSound(1, "pioolb")
  14.   mSetCriteria(gTB, "appname", "start", field "alphaKey")
  15.   mSelect(gTB)
  16.   set n to mSelectCount(gTB)
  17.   if n <> 0 then
  18.     put n into field "NumberFound"
  19.     put mGetField(gTB, "appname") into field "appname"
  20.     put mGetField(gTB, "highs") into field "highs"
  21.     put mGetField(gTB, "lows") into field "lows"
  22.     put mGetField(gTB, "BottomLine") into field "BottomLine"
  23.     put mGetField(gTB, "Rating") into field "Ratings"
  24.     put mGetField(gTB, "AlphSortKey") into field "AlphSortKey"
  25.     put field "Ratings" & "%" into field "Rating"
  26.     put mGetField(gTB, "CoName") into field "CoName"
  27.     put mGetField(gTB, "Address") into field "Address"
  28.     put mGetField(gTB, "City") into field "City"
  29.     put mGetField(gTB, "State") into field "State"
  30.     put mGetField(gTB, "Zip") into field "Zip"
  31.     put mGetField(gTB, "Phone") into field "Phone"
  32.     put mGetField(gTB, "Phone2") into field "Phone2"
  33.     put mGetField(gTB, "email") into field "email"
  34.   else
  35.     CheckAlphaSearch()
  36.   end if
  37.   showSelection()
  38. end
  39.  
  40. on CheckAlphaSearch
  41.   global gAlpha
  42.   set gAlpha to gAlpha + 1
  43.   if gAlpha > 26 then
  44.     set gAlpha to 1
  45.   end if
  46.   put char gAlpha of field "alphaBet" into field "alphakey"
  47.   UpdateAlphaRT()
  48. end
  49.